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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- Se pohaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; i+ 

3 FACILITY: F11ACP Structure Level 1 

3 ; ABSTRACT: 

3 i This module generates a window mapping the desired VBN from 

: } the supplied file hesder. 

40 i ENVIRONMENT : 

ri} i STARLET operating system, including privileged system services 

rt and internal exec routines. 

45 1 inn 
af 

048 AUTHOR: Andrew C. Goldstein, CREATION DATE: 7=Dec-1976 14:38 

$20 ; MODIFIED BY: 

05¢ ‘ VO3-005 LMPO254 L. Mark Pilant 22-Jun-1984 15:16 
05 } Don't clear the forward Link of the window. This was causing 
pee ; the ACP to accvio when doing a remap on cathedral windows. 
096 i v03-004 LMP0026 L. Mark Pilant, 18-May-1982 10:25 
005 : Rearrange several instruction sequences to avoid possible 
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vw 
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8 page faults at an elevated IPL. 
6 0 v03-002 acc0ees Andrew C. Goldstein, 12-Apr-1982 17:11 
? 1 Fix cathedral window logic for empty headers 
6 : v03-001 LMPO018 L. Mark Pilant, 31-Mar-1982 13:15 
64 064 Modify to use a local copy of the window complete flag. 
65 065 Also, fix the window building logic to correctly handle 


Cathedral windows as well as the garden variety windows. 


v02-003 LMPO00S L. Mark Pilant, 29-Dec-1981 15:30 
Add support for Cathedral (segmented) windows. 
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; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

: 6 

RD eg 071 #1 v02-002 ACG0229 Andrew C. Goldstein, 22-Dec-1981 19:41 
; 4 Bae8 : Move updating of PMS$GL_TURN to MAP_VBN 

s 0074 1 v02-001 ACG0167 Andrew C. Goldstein 7-May-1980 18:52 
) oo 75 «1 Previous revision history moved to F11A.REV 

; Bo78 1 lee 

Se 6 4 0077 1 

; 0078 1 

; 79 0079 1 LIBRARY o RL SSL JORARY#L 18,152"; 

; 80 0080 1 REQUIRE ‘SRCS$:FCPDEF.B32'; 

; 6 «68 Baez 1 

;-¢& 0 96 1! 

3+ 8s 0397 1 ! The code in this routine must be locked into the working set because it 
; 84 0398 1 ! runs at IPLS_SYNCH. 

) oe 0399 1! 

; & ots 1 

. or 401 1 LOCK_CODE; 
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bese Sep-1984 01:20: VAX-11 Bliss-32 V4.0-742 Page 3 

14- ~300n 138% 93:30:28 DISKSVMSMASTER: :CF11A.SRCJWITURN.B32; 1 . (2). 
; g re ¢ ! GLOBAL ROUTINE TURN WINDOW (WINDOW, HEADER, DESIRED_VBN, START_VBN) = | ; 
: 91 404 1 !46 | | ; 
3 6 . F 
; pt, sof : } FUNCTIONAL DESCRIPTION: | : 
: 95 408 1: This routine scans the mag area of the supplied file header : 
3 09 1! and builds retrieval pointers in the window until : 
; 9 9619 1! (1) the entire header has been scanned, o | ; 
: 4 oi] : } (2) the first retrieval pointer in the lates maps the desired VBN : 
: 100 418 1 i CALLING SEQUENCE | : 
3 133 tie : TURN _WINDOW (ARG1, ARG2, ARG3, ARG4) ‘ 
: 108 41g 1 i INPUT PARAMETERS: : 
: 104 eas ARG]: address of window block or 0 if to be created : 
; 105 be15 1! ARG2: address of file header : 
: 106 419 1! ARG3: desired VBN : 
s Or 420 1! ARGS: starting VBN of file header 5 
; 108 tee . 3 
3; 109 04 ¢ 1 ! IMPLICIT INPUTS: : 
: 139 04 ? } NONE : 
: 112 0425 1 | OUTPUT PARAMETERS: | : 
3; 1 04 1! updated window 3 
3 1146 04 1! 3 
s 115 0428 1 ! IMPLICIT OUTPUTS: é 
; 116 0429 1! NONE 3 
: 117 0430 1! : 
s 313 0431 1 ! ROUTINE VALUE: : 
: #119 Bees 1! address of window if created ° 
: 139 433 1! or 1 if window already present ; 
s 121 0434 1! é 
3 \$¢ 0435 1 ! SIDE EFFECTS: 3 
3 te Bee8 1! NONE 
: 126 437 1! 
: 125 0438 1 !-- 
g 156 0439 1 +. 
3s 7 440 BEGIN 
s 128 441 
tee 044 WINDOW : REF BBLOCK, ! pointer to window 
3 : 1 Rees HEADER : REF BBLOCK; ! pointer to file header 
9 g bee LABEL } 
5 ; : ri WINDOW_INIT; ! window initialization logic 
: 1 44 LOCAL 
3; 1 450 ven, ' VBN in scanning window 
; «138 51 COUNT ' retrieval pointer count 
3; 139 $26 COUNTER, } soap counter 
; 140 45 L8N rieval painter start LBN 
> 1461 54 WINDOW BUFFER : BBLOCK CMAX _wino006). ' buffer in which to build window 
: 66 455 POINTER_COUN ! Count ¢ "of pointers in window 
: 16 426 WINDOW ou Sisk igs window in pointers 
: 146 45 VEN ! 4K VBN in window 
3; «(145 458 NEU. OINDOW : REF BBLOCK, ! address of newly allocated window 
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WITURN 16-Sep-1984 01:20:58 VAX-11 Bliss-32 V4.0-742 Page 4 
=000 1er8een19ke $2:59;84 — DLSRSVMEMASTERCEE Tins cheduITURN.832:1°%" (24 
; 146 459 W_POINTER REF BBLOCK,  ! pointer to scan window 
3; (16 60 M_POINTER REF BBLOCK, ! pointer to scan header map area 
3 148 461 P_AREA REF BBLOCK, ' pointer to start of header map area 
; (16 rhe MAP POINTER REF BBLOCK, ! pointer to scan header map area 
; 150 46 WINDOW COUNT ' number of blocks mapped by the window 
s 63D) 4 PRIMARY_WINDOW : REF BBLOCK; ! address of the primary window segment 
: 8g tee 5 MACRO 
: ! | e WINDOW _MAP = (.WINDOW+WCBSC_MAP)%; !start of window map area 
: 4 6 rh: EXTERNAL 
; } , 44 CLEANUP_FLAGS : BITVECTOR; ! cleanup action and status flags 
; 159 47 EXTERNAL ROUTIN 
5 1 ot7 ALLOCATE; ! allocate system dynamic memory 
; 162 bc Fs ! There are two general cases that can occur upon entering the window turner: 
: 165 476 ! 1) a window previously exists, in which case things get a Little messy; or 
3 16° Beet 2) no window previously exists, in which case things are very simply. 
; 4 0679 2 
3 18? 0480 W POINTER = WINDOW _BUFFER; 
; be ett WINDOW_COUNT = 0; 
: 170 bc8s M_POINTER = 0; 
3; i 0484 MAP_AREA = .HEADER + .HEADERCFHISB_MPOFFSET] * 2; ! point to map area 
; 176 ot H MAP_POINTER = .MAP_AREA + FM1SC_POINTERS; ' point to start of pointers 
: 17% 0487 1F WINDOW EQL 0 
3 176 0489 
3; 17 0490 ' Create a new window. All that is nocooser? is to initialize a few variables 
; 178 ond and pointers and then start reading the file header. 
Wo BEY so 
; 132 0495 BASE_VBN = .START_VBN; 
; 18 04 WINDOW SIZE = MAX~WINDOW; 
; 184 049 PRIMARY_WINDOW = REW_WINDOW = 0; 
; «185 0498 POINTER_COUNT = 0; 
: 189 $00 3 ELEC 
; 188 501 
; 189 296 ! Use an existing window. Several situation may occur in this case: 1) the 
; 190 4) ! window must be turned to point to a different portion of the file; 2) the 
3; «6191 504 ! header contains pointers which may be added after truncating the existing 
3 136 505 ! window, this usually occurs_when a file is extended without causing a new 
; #419 208 ! file header to be created; 3) the desired VBN is less than the specifed 
: 194 50 ! starting VBN and the stort ing VBN is greater than 1, this occurs when a 
; «6195 4 ! file is extended and a new file header had to be created; or 4) the window 
3 136 50 i already maps a portion of the header and only the new pointers (which may 
; 19 510 ! include a partial .: pointer if two contiguous extents were collapsed into 
; 198 511 ! one map pointer in the header). 
; 199 218 ! 
; 200 Ba! 
: 201 514 WINDOW INIT: BEGIN 
; 202 0515 BASE_VBN = .WINDOWCWCBSL_STVBNI; 
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WINDOW SIZE = MINU ((, Vinpoucucesy SIZE] = WCBSC_LENGTH) / 6, MAX_WINDOW); 


IS 


PRIMARY_WINDOW = NEW WINDO WIN OW; 
PO NTER-COUNT = pUiioutuc su NMAP); 
Fi DvE, { COINTER.CO UNT * 6, GINDOW.MAP, WINDOW_BUFFER); ! copy current 


ie -START_VBN LEQU .VBN 


Determine if the existing window may be truncated. 


I 
R J FROM 1 TO .POINTER_COUNT 


BEG 
VBN = .VBN + .W_POINTERCWCBSW_COUNT); VBN at ty end of the pointer 
ett eal = TWINDOW_C + = WwW NPOINTERCWCBSY COUNT 


seciN 

W_POINTERCWCBSW_PREVCOUNT] = “ eat tS paevcount 2 
POINTER_COUNT = : ' note where window truncated 
LEAVE WINDOW_ INITS: 


mn 
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END; 
a . WINDOWCWCBSV_CATHEDRAL) 
THEN 


Either the window cannot be truncated cr the header maps before the beginning 
of the existing window. In the Latter case if cathedral windows are not in 
use the window may be discarded; if cathedral windows are in use then it is 
possible that a beginning portion of the header may be discarded. 


BEGIN 
IF _ .WINDOWCWCBSV_CATHEDRAL) 
THEN 
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4 

4 BEGIN 

44 IF .BASE_VBN EQL .START_VBN 

45 THEN 

4 BEGIN 

4 6 POINTER_COUNT = 0; 

48 6 LEAVE WINDOW_INIT; 

49 6 END; 

50 6 IF 

51 6 BEGIN 

2g 6 VBN = .START_VBN; 

2? 6 DECR J FROM [MAP_AREACFM1$B_INUSEJ/2 TO 1 
33 POINTER. = .MAP_POINTER; 

2§ $ COUNT = .MAP “PO! CRTERCEALSB COUNT] +1; 
58 7 MAP POINTER = -MAP_POINTER' + 4; “update map pointer 
59 7 IF [BASE_VBN GEQ .0BN 
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; 260 73.7 AND .BASE_VBN LSS .VB . COUNT 

3 2 fe 7 THEN ete 

s € 6 MAP_POINTER = .M_POINTER; ! back up the header pointer 

: 2646 7 POINTER COUNT = 0; 

; 265 8 LEAVE WINDOW_INIT; 

: 26 0 VBN = .VBN + COUNT; 

; re 1 f ne END | 

; %6 § 1 = BUG_CHECK (WCBFCBMNG, FATAL, ‘WCB/FCB correspondence broken'); 

: 2? 5 4 ELSE 

3 ig 5 $ | ; Re 
: 574 05 IF .VBN EQLU .BASE_VBN | 

; 275 588 AND .DESIRED VBN LSSU .START_VBN 

3; er Be 9 AND .START_VBN GTRU 1 s ¢ 
: a4 9330 THEN RETURN 1; ! note window already best fit : 
; 279 B26 ! The header maps before the existing window and cathedral windows are not in 

3 s4 R207 1 use. Discard the existing window and start a new one. | 

3 Ht 0595 

F} 8 0596 POINTER_COUNT = 0; 

; 284 0597 5 WINDOW COUNT = 0; 

: 285 0598 ; BASE_VBN = .START_VBN; | ; 

3 286 0599 W POINTER = WINDOQ_BUFFER; | ; 

: 287 0600 4 END; | : 

; 288 0601 3 END; 3 

; 289 a4 END; ! end of block WINDOW_INIT 3 4 
; 290 060 

; 291 0604 ! The window is now suitably initialized. Set up necessary pointers. 

: 4 Ben? } Now scan the map area, extracting retrieval pointers. 

3 ; 

; 294 060 : 

; 41 9608 UNTIL -MAP_POINTER GEQA .MAP_AREA + FM1SC_POINTERS + .MAP_AREALFM1$B_INUSE] * 2 3 

; 297 10 BEGIN 3 

: 298 611 3 

: 99 ai¢ COUNT = .MAP pd a Selby COUNT) + 1; .. 4 
; 300 61 LBN = .MAP_POINTERCFM1$W_LOWLBN); 

; 301 0614 LBN<16,8> = .MAP_POINTERTFM1$B8_HIGHLBN); 

: 308 aie MAP_POINTER = .MAP_POINTER + 43 | 

3; 304 o9 ' If the eq teeing window's first map pointer is part of a set needed to map 

; 305 0618 ' a map pointer from the header (this only occurs if the map pointer from the 

: 306 0619 ! file header maps more than 65535 blocks), it is necessary to adjust the 

; 4 ? } block count and LBN returned from the heacer. : 

; 309 § 3 

; 310 6 IF .M_POINTER NEQ 0 

s 11 4 THEN i | 
3 1 5 4 EGIN 3 Re 
3 1 6 § 4 COUNT = .COUNT - (.BASE_VBN - .VBN); : El 
: 314 6 4 LBN = .LBN + (.BASE_VBN - .VBN); : ut 
s 3515 628 ¢ M_POINTER = 0; ! only needed once g kc 
; 316 0629 3 END; 3 Me 
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; 7 0 

5 + 631 ! Build new retrieval pointers, using as many as needed to run out the 

3 3 ¢ ! count. If the window is full, and segmented windows are not allowed 

3 0 ! shuffle the entries up by one. If this would cause the pointer mapping 

3 1 4 ! the desired VBN to fall off the top, we are done. If segmented windows 

3 § 5 ' are allowed, write out the current segnent . allocate room for the next 

3 ! segment, reset the critical counts and pointers, and continue on my 

3 G ! merry way. 
; 5 8 : 
3 $ 6 
; 640 IF .COUNT NEQ 0 
3 3 64) 
3 org 4 BEGIN 
; 0 645 4 
; 1 0644 4! If the current set of blocks mapped is contiguous with the preceeding set 

5 § 4 ! Cin the window) and the total count is less than the maximum allowed, merge | 
; bee$ 2 the two sets. Otherwise, create a new window map pointer. | 
; 335 4 

; bec 4 IF .POINTER_COUNT NEQ 0 ! only for peoworeyy window 

; 7 0650 4 AND .W_POINTER(WCBSW_PREVCOUNT] + .W_POINTERCWCBSL_PREVLBN) E21 .LBN 

; $ 0651 4 AND .W_POINTERCWCBSW_PREVCOUNT) + .COUNi LSSU 655 

3 H bees ? hy W_POINTERCWCBSW_PREVCOUNT] = .W_POINTERCWCBS$W_PREVCOUNT] + .COUNT 

: 1 0654 BEGIN 
; ¢ 0655 IF .POINTER_COUNT GEQU .WINDOW_SIZE 
; Bee THEN 

; 6 0657 6 BEGIN 

; 5 0658 6 IF .WINDOW NEQ 0 AND NOT .WINDOWCWCBSV_CATHEDRAL) 

3 6 0659 8 THEN 

; 7 0660 BEGIN 

3 8 0661 7 CLEANUP_FLAGSCCLF_INCOMPLETE) = 1; 

3 9 0662 7 -BASE_VBN + .WINDOW_BUFFERCWCB$W_COUNT] GTRU .DESIRED_VBN | 
; ? Bere 4 THEN EXITLOOP; 

3 § 0665 7 POINTER_COUNT = .POINTER COUNT - 1; | 
; 0666 7 BASE _VBN = .BASE_VBN + .@INDOW BUFFERCWCBSW_COUNT); 

; 4 0667 7 CHSMOVE (.POINTER COUNT®6, WINDOW _BUFFER+6, WINDOW BUFFER); 
: 355 0668 7 W_POINTER = .W_POINTER - 6; | 
3 $ 0669 7 Q 
; 0670 § LSE | 
3 8 0671 BEGIN . ‘ 
3 9 944 7 LOCAL TEMP_LINK : REF BBLOCK; ! addr of temp window Link | 
3 675 7 IF .PRIMARY_WINDOW EQL 0 

: 1 74 7 THEN 

3 ¢ 75 8 BEGIN 

3 76 PRIMARY _WINDOW = NEW WINDOW = ALLOCATE ((MAXU (.PCINTER_ COUNT, MIN_ WINDOW) ) 
; 677 * 6 + WCBSC_LENGTH, WCB_TYPE); | 
: 5 ve IF .NEW_WINDOW EQL 0 

s r$] 7 THEN 
; 0 BEGIN 
; 8 1 9 CLEANUP_FLAGSCCLF_INCOMPLETE) = 1; 
: 9 ¢ g RETURN 0; 

3 0 6 ° END; 
3; 371 4 END; 
; 37 685 7 IF .NEW WINDOWCWCBSL_LINK] NEQ 0 

: 7 0686 7 THEN TEMP_LINK = -NEQ_WINDOW WCBSL_LINK) 
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ELSE 


NDOW; 


= MAX_WI 
ALLOCATE (.WINDOW_SIZE * 6 + WCBSC_LENGTH, WCB_TYPE); 


N 
NUP_FLAGSCCLF_INCOMPLETE) = 
LOOP; 


END; 
SET_IPL (IPLS_SYNCH); 
Copy the needed information from the previous window segment. 


NKCWCBSL_PID] = .NEW eat PID); 
NK WCBSL-ORGU 8) = = wine WINDOW veeoueAL eel 


NK s 
NKCWCBSL_RVT = NEW Rew UINpoMtt Sse at 
segment and create another. 


Finish up the curren 


RAL 
= -POINTER COUNT; 


»BASE 

SAUVE (.POINTER_COUNT® “WINDOW BU FFER, -NEW_WINDOW+WCBSC_MAP) ; 
NEW WINDOW s MEWS wiNDOWCWCBSL_LIAK); 
BASE _VBN = .BASE -V8N + .W NDOW? COUN T; 
NEW_ OINDOW wCBSW- NMAP) = 
NEW-WINDOWCWCBSL_STVBN) = jase. -V8N; 
NEW" WINDOWCLWCBSV~ CATHEDRAL) = 
ser “IPL (0); 

POINTER = WINDOW_BUFFER; 
POINTER C COUNT = 0;7 
grou. COUN = 0; 


END; 
! Finally build the pointer and count it. 


NEW_ impart ta INK] = - TEMP LINK; 


W POINTER WCBSW_ COUNT] = .COUNT; 

WINDOW C Tlie T WINDOW Ow_COUNT” + .W_POINTERCWCBS$W_COUNT); 
WL POINTER WCBSL_LBN) = "LB N; 

W-POINTER = .W_POINTER + 

ae COUNT = .POINTER_ COUNT + 1; 


! end of header scan loop 
! Having built a new window in the buffer, update the real one. Then interlock 


8. 
(2) | 


a Weec9Hs 0:88:82 YIRCMWBALERERECP4iS ZAPavrrumnasach@®® cad) | 


: : 1 re } the system data base and copy the buffer into the window. 

: 4 § 146 

3 4 74 Fepnew WINDOW EQL 0 

; 435 be | 

3 4 74 EN REGIN 

3s 6 750 i. _winoou EQ. 0 

; 64438 751 

; 439 7 ¢ 4 EN REGIN 

3; 440 7 5 PRIMARY_WINDOW = NEW_WINDOW = ALLOCATE CCMAXU (.POINTER_COUNT MIN pyproow 

s 661 754 4 * 6 + WCBSC_LENGTH, WCB_T 

> 46 755 4&4 If -NEW_WINDOW EQL 0 

5 46 7 $ 4 THEN 

: 644 7 BEGIN 

: 645 758 CLEANUP_FLAGSCCLF_INCOMPLETE] = 

: 646 759 RETURN 0; 

3: 647 760 4 END; 

: 448 761 4 NEW_WINDOWCWCBSV_CATHEDRALJ = 

> 449 O76¢ 4 END™ 

; 450 0763 3 Hy NEW_WINDOW = .WINDOW; 

3 451 0764 END 

; $38 0765 

; 45 0766 SET_IPL (IPL$_SYNCH) 

: 654 0767 NEW~WINDOW(WCBSW nab) = .POINTER_COUNT; 

; 455 768 NEW WINDOW WCBS TVBN) = .BASE_VEN; 

; 4656 0769 CHSAMOVE (.P POINTER: COUNT *6, eTNDOM _BUFFER, NEW -WINDOW+WCBSC _MAP); 

; 457 0770 SET_IPL (0); ' unlock the data base 

3; 458 0771 

: 459 O77¢ IF .WINDOW EQL 0 

; 460 077 THEN RETURN .PRIMARY_WINDOW 

3 461 0774 ELSE RETURN i; 

3; 46 0775 

; 46 0776 1 END; ! end of routine TURN_WINDOW 
TI WITURN 
IDENT \V04-000\ 


.EXTRN CLEANUP_FLAGS, ALLOCATE 
-EXTRN BUGS$_WCBFCBMNG 


-PSECT S$LOCKEDC1$,NOWRT,2 


OFFC 00000 ENTRY TURN WINDOW, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 0402 
SE FEOQO CE 9€ 0000 MOVAB =512(SP), SP F 
56 0 AE 9€E 0000 MOVAB ese BUFFER, W_POINTER ; 0480 
C AE 7C 00008 CLRO POINTER + 0483 
51 8 AC 00 000 OVL HEADER, R1 > 0484 
50 Al 9A 0001 MOVZBL 1(R1), RO : 
3A 6140 3€ 1 MOVA' (RIDEROI. MAP_A : 
7 A AA 1A MOV 10(R10), MAP_POINTER > 0485 
ay ay 3 TSTL WINDOW > 0487 
OE 1 BNEQ Ss : 
59 10 AC : MOVL §START_VBN BASE VEN > 0495 
08 AE 50 8F 9A 0 MOVZBL #80, QINDOW > 0496 
6— 7C C CLRQ = PRIMARY_WIND Su" > 0497 


cand 
- 
mm 


- 


4 
WITURN 1b-se -1984 01:20:58 VAX=-11 Bliss-32 V4.0-742 Page 10 
Wour000 127808- 1382 93:38:28 DISKSVMSMASTER:CFIIA.SRCJWITURN.B32:1)" (2) 
00¢1 31 BRW 7$ : 049 
50 04 A C G f 1$: ADDL3 #44, WINDOW, RO : oes 
5 D MOVL. (ROS, BASE_VBN : 
51 04 A : 0 ADDL? #8, WINDOW, R1 + 0516 
1 0 F MOVZwe (RI), RO : 
§ ES boodG Vee 
00000050 &F § D 047 CMPL 4% #80 : 
4 18 af BLEQU 2$ ; 
50 50 BF 9A 009 MOVZBL #80, RO : 
08 AE 0 DO 00054 2s MOVL RO, WINDOW_SIZE : 
4 AE 4 ac OD 328 MOVL WINDOW, NEQ WINDOW : 0517 
6E 4 ac D D MOVL WINDOW PRIMARY _WINDOW : 
50 06 =A 16 ci 0061 ADDL3 # : WINDOW, RO : 0518 
5 6 ¢ 0066 MOVZWL (ROS, POINTER_COUNT : 
50 5 6 C5 00069 MULL : 0519 
5B 04 AC cf 9060 ADDL3 #48, WINDOW, R11 : 
20 AE 68 0 28 900 é MOVC3 RO, (R11), WINDOW BUFFER : 
5B 59 D0 0007 MOVL BASE_VBN, VBN + 0520 
58 10 AC D1 0007A CMPL § START_VBN, VBN : 0522 
35 1B O007E BLEGU 5$ : 
51 04 00080 CLRL : 0529 
24 11 00082 BRB 4$ ; 
50 66 3C 00084 3$ MOVZWL (W_POINTER), RO + 0532 
58 50 ¢0 90087 ADDL2 : : 
50 86 3C O008A MOVZWL (WPOINTER)+, RO > 0533 
10 AE 50 CO 0008D ADDL2 RO> WINDOW COUNT F 
56 04 ¢O 00091 ADDL2 #4, W_POINTER > 0534 
58 10 AC D1 00094 CMPL  § START~VBN, VBN : 0535 
OE 14 00098 BGTR 4$ : 
50 10 ac 5B C3 O009A SUBL3. VBN, START_VBN, RO : 0539 
FA AG 50 AO 0009F ADDW2 RO, -6(W_POINTER) ; 
58 51 0 O00A MOVL J, POINTER_COUNT + 0540 
7D 11 OOOA BRB 1 > 0541 
08 51 58 3 S008 4$: AOBLEQ R8, J, 3$ : 0529 
50 04 AC 0B ci O00AC ADDLS #11, WINDOW, RO : 0544 
70 60 06 £0 00081 BBS #6, (RO), 12% : 
5¢ 04 AC OB C1 00085 5$: ADDL3 #11, WINDOW, R2 > 0554 
4 62 06 E1 OOOBA BBC #6, (R2), ; 
10 AC D1 0008 CMPL BASE_VBN, START_VBN : 0557 
2€ 13 00C BEQL 4 : 
58 10 AC pO 0004 MOVL TART_VBN, VBN > 0565 
1 08 AA 9A 00068 MOVZBL B8(MAP“AREA), R1 : 0566 
51 92 C6 doce DIVL2 #2, RT ; 
D6 CF INCL 3 
7 11 00001 BRB 9s : 
OC AE 7 OE 005 6$: MOVAL (MAP_POINTER)+, M_POINTER > 0569 
14 AE FD A? 9A 0000 MOVZ2BL <-3(MAP_POINTERS, COUNT : 0570 
16 =A D6 O0C INCL COUN ; 
58 5 p ODF CMPL ASE_VBN, VBN + 0572 
12 19 ee BLSS : 
50 58 16 AE C1 OO0E ADDL3 COUNT, VBN, RO > 0573 
50 59 D1 O00E9 CMPL ASE_VBN, RO ; 
08 18 EC BGEO F 
57 OC AE OOD EE MOVL M_POINTER, MAP_POINTER > 0576 
58 D4 O00F2 7$: CLRL POINTER COUNT > 0577 
2F 11 O00F4 BRB 12$ : 0578 


Kk 4 | 
WI TURN 16-Sep-1984 01:20: VAX-11 Bliss-32 V4.0-742 Page 11| 
| =000 1e-8Sb-1984 12:59:84 DISKSUMGMASTERSEFTin,SReJWITURN.B32:1°% (3) 
58 16 AE C F6 8S: ADDL2 COUNT, VBN : 
3 eee : Rte 
FEET FD BUGW : 05 
90 Os OFF WORD <BUGS_WCBFCBHNG!4> : 
2 1 001 | BRB 1 + 0554 
59 36 108: CMPL VEN, BASE_VBN + 0587 
10 ac 0c aC p 1 CMPL DESIRED_VEN, START_VBN : 0588 
09 1€ 0010D BGEGU 118 : 
01 10 AC D1 0010F CMPL START _VBN, rT + 0589 
1B 0011 BLEQU 11$ : 
0228 31 0011 BRW 31$ : 
D4 00118 118 CLRL  POINTER_COUNT + 0596 
10 AE D4 OO11A CLRL WINDOW COUNT : 0597 
59 10 AC DO 0011D MOVL §_START_JBN, BASE_VBN : 0598 
56 20 AE 9E 00121 MOVAB WINDOQ_BUFFER, @ POINTER : 0599 
1c AE 8 AA 9E 00125 12s MOV 8(MAP_AREA), 28(SP) + 0608 
50 1C BE 9A OO12A 13% MOV ZBL a2 ?, : 
50 OA AAGO 3E 001 E MOVAW  10(MAP_AREA)CROJ, RO ; 
50 57 D1 01 CMPL § MAP_POTNTER, RO : 
03 1F 001 é BLSSU _14$ : 
0199 31 001 BRW 25$ : 
16 AE A7 9A 00138 14%:  MOVZBL 1(MAP_POINTER), COUNT + 0612 
.. & 06 90149 INCL COUNT : 
18 AE A? 3C 0014 MOVZWL 2(MAP_POINTER), LBN + 0613 
1A OA 87 90 00148 OVB (MAP_POINTER)+. LBN+2 > 0614 
5 03 CO 0014C¢ ADDL2 #3, MAP > 0615 
OC AE DS 0014F TSTL  M_POINTER : 0623 
OF 13 00152 BEQL 5$ 3 
50 58 59 ¢3 00154 SUBL3. BASE_VBN, VBN, RO > 0626 
14 AE 50 €6 00158 ADDL2 RO, COUNT ; 
18 AE 50 ¢2 0015¢ SUBL2 RO, LBN + 0627 
OC AE D4 00160 CLRL M_POINTER : 0628 
4 =A D3 0163 15$: TSTL COUNT + 0640 
C2 13 00166 BEQL 13$ : 
5 03 0168 TSTL | POINTER_COUNT + 0649 
26 13 OO16A BEQL 16$ : 
50 FA Ab 3 016¢ MOVZWL -6(W_POINTER), RO > 0650 
50 FC Ab C o1 0 ADDL2 <-4(W7POINTER). RO : 
18 AE 50 D1 00174 CMPL RO, CBN 3 
18 12 00178 BNEQ 16 ; 
50 FA AG 3¢ O17A MOVZWL -6(W POINTER), RO > 0651 
0 14 AE CO 0017 ADDL2 COUNT 3 
00010000 =F 3 Di O18 cHPL RO, #65536 ; 
Pi } 
FA Ab 14 A Ab 1 ADDW COUNT, -6(W_POINTER) > 0652 
08 AE ; D1 00192 168:  CMPL = POINTER_COUNT, WINDOW_SIZE > 0655 
1F 196 BLSSU ; 
aC p 19 MOVL WINDOW, RO : 0658 
19¢ BEQL 18% ; 
6 19 BBS #6, 11(RO), 18 : 
4 1A BISB2 #4. CLEANUP _FLAGS#1 > 0661 
Ar ¢ 1 MOVZWL WINDOW BUFFER, RO > 0662 | 
2 CO OO1AC ADDL2 BASE VEN, R ; 
0 D1 OOTAF CMPL R0 BESIRED_VBN ; 
6F 1A 00183 BGTRU 226 : 
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POINTER, COUNT 
WINDOW BUFFER, RO 
» BASE_V BN 
+ POINTER. C 
MARY_WINDOW 


NTER_COUNT, RO 


gre ae ae 
~~. Ae “tp 
@D 

z c< 


DV BBV— VBMNW VNMSWAIIC 
@D 
oo 


0) 
- ALLOCATE 
* NEW WINDOW 
if WINSOU. PRIMARY_WINDOW 


$53 NEW_WINDOW, RO 
(ROS 


1$ 
32, NEW WINDOW, R1 
RI, TERP_L 


#80, WINDOW_SIZE 
#6, WINDOW SIZE, R1 


, ALLOCATE 
TEMP_LINK 


2 
ss ¢ ee 


48 
wid ‘N 
(RI 
#16, 


RP BBBern— Brv 
MRon— 
~~ 


e 


t 


2-2-2-2-2-2- 


3eae3535353=2 
— 


“ii, “Neu WINDOW, RO 


#22. NEW WINDOW, RO 
ek COUNT, (RO) 
#44, NE R 


RO 
WINDOW BUFFERS, WINDOW _BUFFER 
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¥ou-000 19-308 = 1382 93:39:28 DISKSVMSMASTER:CF1IA.SRCJWITURN.B32:1) > (2 
7E 4 AE 1 Ou 85 ADDL3 #48, NEW_WINDOW, -(SP) ; 
43 4 AE i A ate RO WINDOW BUFFER, a(SP)+ : 
4 AE ¢ F ADDL3S # é NEW WINDOW, RO + 0718 
: é | 
4 A 09 4 MOVL ROS, NEQ WINDOW 
5 10 AE C 98 ADDL window COONT, BASE_VBN + 0719. 
50 04 AE 1 c : ADDL We NEW WINDOW, RO : 720) 
50 ee Hi C1 O02A ADDL3 #44, NEW_WINDOW, RO : 0721. 
6 DO 002A MOVL. BASE_VBN7 (R : 
50 06 =A B cr AB ADDL3 #11, NEW WINDOW, RO + 0722 
6 40 8F 88 000B BISB2 #64. (ROY : 
1 0 DA 0 B4 MTPR #0, # : 0723 
5 20 Ar E 00287 MOVAB WINDOW BUFFER, W POINTER > 0724 
58 D4 0 BB CLRL POINTER COUNT : 0725 
10 AE 04 BD CLRL WINDOW_COUNT ; 07 $ 
6 14 AE 80 02C0 24$ OVW COUNT, ~(W_ POINTER) : 07 
0 86 C 002C4 MOVZWL (W_POINTER)+, R : 0734 
10 AE CO 002C7 ADDL2 RO; WINDOW COUNT : 
86 18 af DO 002CB MOVL BN, (W_POINTER)+ : 0735 
5 06 OOOCF INCL POINTER COUNT + 0737 
FE56 31 00201 BRW 13$ + 0640 
04 AE D5 00204 258 TSTL § NEW_WINDOW + 0747 
38 if 0207 BNEQ «= 3 : 
04 AC D5 00209 TSTL WINDOW : 0750 
31 12 0020C BNEQ 29$ : 
01 oD 00 DE PUSHL #1 + 0753 
50 58 DO 00 EO MOVL  POINTER_COUNT, RO ; 
03 12 O02E BNEQ 268 : | 
50 01 »D 00 E5 MOVL #1, RO : 
50 06 C4 00268 26$:  MULL2 #6. RO + 0754 
30 AO SF OO2EB PUSHAB 48(RO) : 
00006 CF 0 FB 00 EE CALLS 2, ALLOCATE : 
04 AE 50 DO O02F MOVL RO, NEW WINDOW : 
6E 04 Ag DO 002F7 MOVL NEW_WINBOW, PRIMARY_WINDOW : 0753 
1 00 FB BNEQ : 0755 
00006 CF 4 88 OO2FD 27$:  BISB2 #4, CLEANUP_FLAGS+1 : 0758 
40 11 00302 BRB : 0759 
50 04 AE B ci 0304 28%:  ADDL3 #11, NEW.WINDOW, RO : 0761 
60 40 8F 88 00 09 BISB2 #64. (ROY : 
05 11 0030D BRB + 0750 
04 =A 04 AC DO 0030F 298: MOVL WINDOW, NEW_WINDOW > 0763 
1 08 DA 00314 30$:  MTPR # : 0766 
50 04 AE 16 C1 00317 ADDL3 #22, NEW_WINDOW, RO : 0767 
60 80 6 1c MOVW POINTER COUNT, (RO) ; 
50 046 A CC 1F ADDL3 #44, NEQ_WINDOW, R : 0768 | 
6 9 DO 4 OVL. BASE_VBN> (RO) : 
58 C4 7 MULL2 #6, R : 0769 
56 04 AE C1 A ADDL3 #48, NEW_WINDOW, R6 : 
Bs 20 A 28 F MOVC RB. WINDOW_BUFFER, (R6) ; 
1 00 DA MTPR #0. #18 : 0770 
06 ac D 0 7 TSTL WINDOW : 0772 
04 1 A BNE : 
50 6E bo C MOVL PRIMARY_WINDOW, RO : 0774 
50 01 B0 9 31 MOVL #1, RO : 
4 0 4 RET : 
50 D4 00344 328 CLRL = RO ; 0776 | 


‘Wie arab areas 


¥ou-000 1B-sen-1984 94:58 ee Nee dUmebASteRcce tidceneawiruRn.a32;1°%° «3s 


04 00346 RET 
; Routine Size: 839 bytes, Routine Base: $LOCKEDC1$ + 0000 


nS sss ; 


5 | 
WITURN 1b-se 1984 01:20:58 VAX-11 Bliss-32 V4,0-742 Page 15° 
¥ou-000 1e8eb-19h4 12:59:54 — DISKSVMGMASTER SC TIA. SREIWITURN.B32:1°%" (4) 

| 

3 $63 vr ! GLOBAL ROUTINE MARK_INCOMPLETE (FIRST_BLOCK) : NOVALUE = 
; rh 8 1 !4¢ | 
; ree 780 1! 
; ¢ ; f 1 : } FUNCTIONAL DESCRIPTION: 
; 471 7 i 1! This routine starts from the specified window and marks ail 
; 47 784 «1! successive windows in the List as being incomplete. The List 
; 47 785 1! may start with the CURRENT_WINDOW; in which case the current 
; 4746 7 $ 1! and all successive window segments are marked as incomplete. 
; 475 07 1! It may also sta-t with the PRIMARY_FCB; in which case all the 
3 rg! t+ : window segments associated with the file are marked incomplete. 
; 478 Boot 1 ! CALLING SEQUENCE: 
; 479 vee B MARK_INCOMPLETE (ARG1) 
; 480 144 1! 
; 481 0795 1 ! INPUT PARAMETERS: 
3 rt tae ! ARG1: address of the first block in the list (either a WCB or FCB) 
: 484 0796 1 ! IMPLICIT INPUTS: 
; «4485 1044 13 none 
; 486 798 1! 
; 487 0799 1 ! OUTPUT PARAMETERS: 
; 488 0800 1! none 
: 489 0801 1! 
: 490 0802 1 ! IMPLICIT OUTPUTS: 
: 491 0805 1! none 
; & 0804 1! 
; 49 0805 1 ! ROUTINE VALUE: 
; 494 0806 1! none 
; 4495 0807 1! 
; 496 0808 1 ! SIDE EFFECTS: 
; 497 0809 1! none 
; 498 0810 1! 
; 499 pat 1 f= 
; 500 0 \¢ 1 
; 501 st 2 BEGIN | 
; 206 814 
: i 0815 MAP 
$ $pe pais FIRST_BLOCK : REF BBLOCK; ! address of the first block | 
3 208 nae LOCAL 
; 507 0819 STARTP : REF BBLOCK, ' address of the queue head 
3 $8 $ y POINTER : REF BBLOCK; ! address of the current block | 
s 310 § ! Determine what type of block the first one is. If it is an FCB then it is 
3 Sti ! necessary to traverse the WCB queue and mark all the WCB's associated with 
; \¢ 4 ! the FCB as incomplete. If it is a WCB then simply follow the Links marking | 
3 1? é the WCB's as incomplete until a zero Link is found. | 
: 515 | 
; 16 3 SELECTONE .FIRST_BLOCKCWCBSB_TYPE] OF 
3 ; 4 SET | 
; 5 1 CDYNSC_WCB): BEGIN 
3 $f § POINTER = .FIRST BLOCK; | 
3 1 SET_IPL (IPLS_SYNCH); 


1986 92:89:54 — DISkSuMSMASTERSCI TiA-sREIWITURN.B32:1°9° CS). 


¥O4-000 16-s to-18 


; 3 DO 
3 § 5 2 BEGIN 
; 4 $ 4 IF ,POINTERCWCBSB_TYPE) Nee DYNSC_WCB 
: 5 4 THEN Bue CHECK ( cuOTucey B, gihtee *Currupted WCB list’); 
; $ 8 4 POINTERL@CB$V_COM pLeT e} 
3 4 POINTER = .POINTERCLWUBSL Sina; 
; § 40 4 END 
; 41 UNTIL POINTER EQL 0; 
; 0 4g T IPL (0); 
: 1 RETORN; | 
3 ¢ aie ND; 
; i bc¢ CDYNSC_FCB): BEGIN 
; 5 4 POINTER = .FIRST_BLOCK; 
; 48 STARTP = POINTERCFCBSL_WLFLI; 
; 49 SET_IPL (IPL$_SYNCH); 
; 8 0850 POINTER = .POTNTERLFCBSL_WLFi); 
: 9 0891 UNTIL .POINTER EQLA .STAR 
: 540 83¢ DO 
: 541 0853 4 BEGIN 
; 54 0854 4 IF .POINTERCWCB$B_TYPE) wee DYNSC_WCB 
; 54 0855 4 THEN pus Sneek Cnty wce eyce FATAL, ‘Currupted WCB List"); 
3 544 0856 4 POINTERLOCBSV MPLETE 
: 545 0857 4 POINTER = PUIATeRTiicgeL oe | 
: 54 0858 END; 
; 56 0859 SET_IPL (0); 
; 548 0860 RETORN; 
; 549 0861 END; | 
; 550 0868 
3 23) Baez COTHERWISE): BUG_CHECK (WCBFCBMNG, FATAL, ‘WCB/FCB correspondence broken’); 
P+ | 
; 28 0865 TES 
; 554 0866 
3; 333 0867 1 END; ! end of routine MARK_INCOMPLETE 
.EXTRN BUGS_NOTWCBWCB 
0004 00000 .ENTRY MARK_INCOMPLETE, Save R2 : 0777 
51 04 ac 00 00002 MOVL FIRST BLOCK, R1 : 0828 
32 OA Al 9A 00006 MOVZBL 10(R1J, Re : 
1 52 91 OOO0A CMPBséR2, wig > 0831 
iC if 9000 BNEQ 3$ : 
50 51 D F MOVL R1, POINTER : 0832 
12 08 DA 001 MTPR Ht s > 0833 | 
1 OA AO } 0015 1$ CMPB  =«-«1O(POINTER), #18 : 0836 
04 «1 1 BEQL 2$ : 
Fer 1B BUGW : 0837 
0 * 1D . WORD <ayes woTuceuce: 4> : 
0B ad 20 BA OOOIF 28 BICB2 #32, T1(PO : 0838 | 
50 20 A p 3 MOVL SOCBOINTER) TEOINTER ; 0839 
C BNEQ i$ : 0841 | 
8 1 9 BRB 63 : 0842 
07 91 B 3$ CMPB Re. a7 + 0846 | 
eA 13 F BNEQ 7 ; 
50 1 00 00 MOVL R1, POINTER + 0847 | 


vo4~000 it see 2:59i8e DESeSUNSMASTERSCITIA. SRC JuITURW.B32;1°%° (35 


10 Ad 9 MOVAB Jg(POINTER), STARTP : g 

08 DA MTPR : | 

10 AO D A MOVL TOtPOLNTER) POINTER : 20, 

; BE 48: CMPL POINTER, STARTP : 

12 OA A 4 CMPB ; (POINTER), #18 : 0854. 

04 4 BEQL : 

Fert 49 BUGW : 0855. 

0 - «WORD <ayss NOTWCBUCB!4> : 

OB OA 2 8 oD 5$: BICB2 #32, TI(POINT ; 085 | 
5 b0 MOVL (POINTER), POINTER : 89 
F 1 4 BRB 4 > 0851 

12 DA § 6$: MTPR #0, #18 : 0859 
4 0005 RET : 084 
FEFF OOOSA 7$: BUGW > 086 

0000* 0005¢ .WORD <BUGS_WCBF CBMNG!4> : 
04 0005€ RET > 0867 


; Routine Size: 95 bytes, Routine Base: S$LOCKEDC1$ + 0347 


S= 
33 


SHUFALERIS S34 
OD C900 09 OD Cd Cd CD CO. OD CD CD CD CD 


COON NNN NNO Oo 


DOONAN (OC OONAUES WI -O0O@ 


ODOOOCOOCOOCOCOCOCOCOO 


PUPVLVULVLIULVLVSIVSIVSUSV LVS SSIS 
NNN 
JaNourun—oo 

COCO COCOCCOCO 


3 Y 6 

3 és 
: 
; 3 
; 88 
; 88 
; 890 
; 580 4 
; 581 3 
g oB6 89 
; 58 894 
; 586 0895 
; «585 0896 
3 386 0897 
s 587 0898 
; 588 0899 
; 589 0900 
; aor 0901 
; 91 090 
3 206 090 
; 39 0904 
3 ape 0905 
; 595 0906 
; 596 0907 
; 597 908 
; 598 909 
; 599 910 
; 600 24h 
; 601 aig 
3 One 091° 
; 60 0914 
3; 604 915 
; 605 218 
; one 91 
: 60 4 | 
; 608 91 
: 609 920 
3; 610 921 
: 611 9 ; 
; 612 
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GLOBAL ROUTINE MARK_COMPLETE (WINDOW) 


'e+ 


' 
ROUTINE DESCRITION: 


: NOVALUE = 


This routine is used to mark the specified window as complete. 
It must be execured in kernel mode. 


CALLING SEQUENCE: 
MARK_COMPLETE (ARG1) 


INPUT PARAMETERS: 
ARG1: address of the window List to mark 


IMPLICIT INPUTS: 
none 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 


SIDE EFFECTS: 


i 

i 

i 

! 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' OUTPUT PARAMETERS: 
none 
i 

i 

i 

i 

i 

i 

none 
le 


BEGIN 


WINDOW : REF BBLOCK; address of the window to mark 


LOCAL 
NEXT_SEGMENT 


NEXT_SEGMENT = .WINDOW; 
SET_IPL (IPL$_SYNCH); 


: REF BBLOCK; 


address of the next segment 


BEGIN 
NEXT_SEGMENTCWCBSV_COMPLETE] = 1; 
NEXT"SEGMENT = .NERT_SEGMENTCWCBSL_LINK]; 


UNTIL .NEXT_SEGMENT EQL 0; 
SET_IPL (0); 

RETURN; 

END; 


mark as complete 


end of routine MARK_COMPLETE 


5 
1$-Se0-1984 01:20:58 vatedt atise=32 


0-742 P 
iA. SRCJWITURN.B32: 1" 


-1984 01:20:58 VAX-11 Bliss-32 V4,0-742 P 1 
138% 93:38:28 DISKSVMSMASTER:CFIIA.SRCJWITURN.B32:1) >" (4) | 


; Lexemes/CPU-Min: 
; Memory Used: 267 pages 


«ENTRY MARK_COMPLETE, Save nothing : 0868 
MOVL WINDOW, NEXT_SEGMENT + 0908 
MTPR r : 0910 
BISB2 #32, 11(NEXT_SEGMENT) > 0914 
MOVL 32(NEXT_SEGMENT), NEXT_SEGMENT ; 0915 
BNEQ : 0917 
MTPR #0, #18 : 0919 
RET : 0923 
; Routine Size: 23 bytes, Routine Base: SLOCKEDC1$ + 03A6 
; 613 0924 
; 614 0925 1 END 
: 615 0926 0 ELUDOM 
D 
Dd 
D 
3 PSECT SUMMARY 4 
; Name Bytes Attributes . 
: $LOCKEDC1$ 957 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) Abs 
ENTE 
ERAS 
ERLS 
: Library Statistics n ‘ 
Feng ee ee ee ee, Symbols -------- Pages Processing Exes 
; File Total Loaded Percent Mapped Time 5 ; 
;  _$255$DUA28:(SYSLIBIL1B.L32;1 18619 31 0 1000 00:01.9 exes 
EXES 
EXES 
EXE! 
EXES 
EXE! 
EXES 
; COMMAND QUALIFIERS Het 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:W1ITURN/OBJ=O0BJ$:WITURN MSRC$:WI TURN/UPDATE=(ENH$:W1 TURN) : ‘ 
Size: 957 co ¢ + 0 data bytes EXEs 
; Run Time: 0:23.6 Exe! 
; Elapsed Time: 1.1 | EXTE 
| 
| 


; 1: 
: Lines/CPU Min: 18385 


$25 
Symt 


oe a ——e ee psa hs 
33 GS 4 BbuySeERSSe 


rw see 
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